home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / moden / adpbook.int < prev    next >
Text File  |  1996-04-08  |  1KB  |  48 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                   ADPBOOK.PAS 1.01                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit AdPBook;
  13.   {-Ini database descendant for storing phonebooks}
  14.  
  15. interface
  16.  
  17. uses
  18.   Classes,
  19.   AdDataB,
  20.   AdIniDB;
  21.  
  22. const
  23.   {length of name and phone number fields for phonebook}
  24.   NameLen     = 21;
  25.   PhoneNumLen = 21;
  26.  
  27. type
  28.   PPhonebookEntry = ^TPhonebookEntry;
  29.   TPhonebookEntry =
  30.     record
  31.       Name   : String[NameLen];
  32.       Number : String[PhoneNumLen];
  33.     end;
  34.  
  35.   TApdPhonebook = class(TApdCustomIniDBase)
  36.   public
  37.     constructor Create(AOwner : TComponent); override;
  38.  
  39.   protected
  40.     {.Z+}
  41.     procedure DefineProperties(Filer : TFiler); override;
  42.     {.Z-}
  43.  
  44.   published
  45.     property FileName;
  46.   end;
  47.  
  48.